home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 02309_Script_2309 < prev    next >
Text File  |  1997-07-29  |  576b  |  16 lines
  1. on mouseUp
  2.   set cstart to 2729
  3.   set cnext to 1
  4.   repeat with x = 1 to the number of lines of field "newglo"
  5.     set thenum to cstart + cnext
  6.     new(#field, member thenum of castlib "shared")
  7.     set the name of member thenum of castlib "shared" to line x of field "newglo"
  8.     put line x + 1 of field "newglo" &","&line x of field "newglo"& return after field "newterms"
  9.     
  10.     put line x + 2 of field "newglo" into field thenum of castlib "shared"
  11.     
  12.     set x = x + 3
  13.     set cnext to cnext + 1
  14.     put field thenum of castlib "shared"
  15.   end repeat
  16. end